home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / cycle_transp.omed < prev    next >
Text File  |  1996-06-06  |  333b  |  8 lines
  1. /* Cycle Transpose */
  2. op_get transposeoutofrange var a
  3. select
  4.     when a=0 then do; a=1; wi_showstring "Transpose leaves out-of-range-notes intact."; end
  5.     when a=1 then do; a=2; wi_showstring "Transpose deletes out-of-range-notes."; end
  6.     otherwise do; a=0; wi_showstring "Transpose set to default."; end
  7. end
  8. op_set transposeoutofrange a